CAAPlanetPerihelionAphelion_UranusK <-
function(Year){
.Call("CAAPlanetPerihelionAphelion_UranusK", Year)
}
